Option Explicit
Sub B_Sample044()
    Dim myWState As String
    Select Case Application.WindowState
        Case xlMaximized
            myWState = "̤j"
        Case xlNormal
            myWState = "з"
        Case xlMinimized
            myWState = "̤p"
    End Select
    MsgBox myWState & "A", vbInformation
End Sub
